home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act7 / 00462.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  334 b   |  16 lines
  1. on exitFrame
  2.   global sblist
  3.   repeat with xxx = 1 to 10
  4.     addbug()
  5.   end repeat
  6.   repeat with xxx in sblist
  7.     set thang to getbugtype(xxx)
  8.     if (thang > 6) and (thang < 11) then
  9.       setbugx(xxx, random(440) + 200)
  10.       next repeat
  11.     end if
  12.     setbugxy(xxx, 200 + random(440), random(480))
  13.   end repeat
  14.   animateall()
  15. end
  16.